Microsoft Encarta World Atlas 1999/Encarta World 99 Install Disk.iso/support/DirHTML/diagnose.dcr/00033.ls

Text File | 1998-09-01 | 330 b | 19 lines

property piFrameCount

on beginSprite me
  set piFrameCount to 0
  add(the actorList, me)
end

on endSprite me
  deleteOne(the actorList, me)
end

on stepFrame me
  set piFrameCount to piFrameCount + 1
  if piFrameCount mod 5 then
    exit
  end if
  set the member of sprite the spriteNum of me to member ("dot" & random(2))
end